#!/usr/bin/perl
use strict;

while ( my ($key, $value) = each (%ENV) )
{
	print "$key, $value\n";
}